﻿Imports System.Data
Imports System.Data.SqlClient
Public Class TKTheoGia

    Private Sub BtnTim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTim.Click
        Dim a As Integer
        Dim b As Integer
        a = Convert.ToInt32(cmbGiaMax.SelectedValue)
        b = Convert.ToInt32(cmbGiaMin.SelectedValue)
        Dim bang As DataTable = NhaChoThue_BUS.LayThongTinTimKiemGia(a, b)
        DataGridView1_TKGia.DataSource = bang
    End Sub

    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        Me.Close()
    End Sub

    Private Sub TKTheoGia_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim bang As DataTable = NhaChoThue_BUS.laodgia()
        Dim bang1 As DataTable = NhaChoThue_BUS.laodgia1()
        cmbGiaMax.DataSource = bang
        cmbGiaMax.ValueMember = "GiaChoThue"
        cmbGiaMin.DataSource = bang1
        cmbGiaMin.ValueMember = "GiaChoThue"
    End Sub
End Class